home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b1.d64 / even.l < prev    next >
Text File  |  2007-02-28  |  158b  |  9 lines
  1. 9000 //
  2. 9010 FUNC EVEN(NUMBER#) CLOSED
  3. 9020   IF NUMBER# MOD 2=0 THEN
  4. 9030     RETURN TRUE
  5. 9040   ELSE 
  6. 9050     RETURN FALSE
  7. 9060   ENDIF 
  8. 9070 ENDFUNC EVEN
  9.